home *** CD-ROM | disk | FTP | other *** search
/ Virtual Top Model / Virtual Top Model - Disc 1.iso / modulos / mod-1.dxr / 00008_boton volumen.ls < prev    next >
Encoding:
Text File  |  1997-04-01  |  1.3 KB  |  54 lines
  1. on mouseUp
  2.   global nVolum
  3.   if rollOver(10) then
  4.     set the member of sprite 10 to member "Fd_Bt_A/1" of castLib "elementos graficos"
  5.     puppetSprite(10, 0)
  6.     updateStage()
  7.     if nVolum > 0 then
  8.       set nVolum to nVolum - 1
  9.       set the soundLevel to nVolum
  10.     else
  11.       beep()
  12.     end if
  13.   end if
  14. end
  15.  
  16. on rightMouseUp
  17.   global nVolum
  18.   if rollOver(10) then
  19.     set the member of sprite 10 to member "Fd_Bt_A/1" of castLib "elementos graficos"
  20.     puppetSprite(10, 0)
  21.     updateStage()
  22.     if nVolum < 7 then
  23.       set nVolum to nVolum + 1
  24.       set the soundLevel to nVolum
  25.     else
  26.       beep()
  27.     end if
  28.   end if
  29. end
  30.  
  31. on mouseDown
  32.   repeat while the stillDown
  33.     puppetSprite(10, 1)
  34.     if rollOver(10) then
  35.       set the member of sprite 10 to member "Fd_Bt_B/1" of castLib "elementos graficos"
  36.     else
  37.       set the member of sprite 10 to member "Fd_Bt_A/1" of castLib "elementos graficos"
  38.     end if
  39.     updateStage()
  40.   end repeat
  41. end
  42.  
  43. on rightMouseDown
  44.   repeat while the stillDown
  45.     puppetSprite(10, 1)
  46.     if rollOver(10) then
  47.       set the member of sprite 10 to member "Fd_Bt_B/1" of castLib "elementos graficos"
  48.     else
  49.       set the member of sprite 10 to member "Fd_Bt_A/1" of castLib "elementos graficos"
  50.     end if
  51.     updateStage()
  52.   end repeat
  53. end
  54.